unit dgFPWizard ;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  uBasic,
  uObjects,
  fmShapeWiz ;

type
  TdlgFPWizard = class( TForm )
    frmShapeWiz: TfrmShapeWiz;
  private
    function GetShape : TMedaShape ;
    procedure SetShape( const Value : TMedaShape ) ;
  public
    property Shape : TMedaShape read GetShape write SetShape ;
  end ;

var
  dlgFPWizard       : TdlgFPWizard ;

implementation

{$R *.dfm}

{ TdlgFPWizard }

function TdlgFPWizard.GetShape : TMedaShape ;
begin
  Result := frmShapeWiz.Shape ;
end ;

procedure TdlgFPWizard.SetShape( const Value : TMedaShape ) ;
begin
  frmShapeWiz.Shape := Value ;
end ;

end.

